      MODULE employv2kp_v4
      USE employv2kp_v1
      CONTAINS
      SUBROUTINE SSDAVC(ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSDAVC')
      INTEGER ASTAT
      IF(ALLOCATED(V00001)) THEN
       DEALLOCATE(V00001,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00002)) THEN
       DEALLOCATE(V00002,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00003)) THEN
       DEALLOCATE(V00003,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00004)) THEN
       DEALLOCATE(V00004,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00005)) THEN
       DEALLOCATE(V00005,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00006)) THEN
       DEALLOCATE(V00006,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00007)) THEN
       DEALLOCATE(V00007,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00008)) THEN
       DEALLOCATE(V00008,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00009)) THEN
       DEALLOCATE(V00009,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00010)) THEN
       DEALLOCATE(V00010,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00011)) THEN
       DEALLOCATE(V00011,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00012)) THEN
       DEALLOCATE(V00012,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00013)) THEN
       DEALLOCATE(V00013,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00014)) THEN
       DEALLOCATE(V00014,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00015)) THEN
       DEALLOCATE(V00015,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00016)) THEN
       DEALLOCATE(V00016,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00017)) THEN
       DEALLOCATE(V00017,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00018)) THEN
       DEALLOCATE(V00018,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00019)) THEN
       DEALLOCATE(V00019,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00020)) THEN
       DEALLOCATE(V00020,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00021)) THEN
       DEALLOCATE(V00021,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00022)) THEN
       DEALLOCATE(V00022,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00023)) THEN
       DEALLOCATE(V00023,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00024)) THEN
       DEALLOCATE(V00024,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00025)) THEN
       DEALLOCATE(V00025,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00026)) THEN
       DEALLOCATE(V00026,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00027)) THEN
       DEALLOCATE(V00027,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00028)) THEN
       DEALLOCATE(V00028,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00029)) THEN
       DEALLOCATE(V00029,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00030)) THEN
       DEALLOCATE(V00030,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00031)) THEN
       DEALLOCATE(V00031,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00032)) THEN
       DEALLOCATE(V00032,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00033)) THEN
       DEALLOCATE(V00033,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00034)) THEN
       DEALLOCATE(V00034,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00035)) THEN
       DEALLOCATE(V00035,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00036)) THEN
       DEALLOCATE(V00036,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00037)) THEN
       DEALLOCATE(V00037,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00038)) THEN
       DEALLOCATE(V00038,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00039)) THEN
       DEALLOCATE(V00039,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00040)) THEN
       DEALLOCATE(V00040,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00041)) THEN
       DEALLOCATE(V00041,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00042)) THEN
       DEALLOCATE(V00042,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00043)) THEN
       DEALLOCATE(V00043,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00044)) THEN
       DEALLOCATE(V00044,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00045)) THEN
       DEALLOCATE(V00045,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00046)) THEN
       DEALLOCATE(V00046,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00047)) THEN
       DEALLOCATE(V00047,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00048)) THEN
       DEALLOCATE(V00048,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00049)) THEN
       DEALLOCATE(V00049,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00050)) THEN
       DEALLOCATE(V00050,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00051)) THEN
       DEALLOCATE(V00051,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00052)) THEN
       DEALLOCATE(V00052,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00053)) THEN
       DEALLOCATE(V00053,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00054)) THEN
       DEALLOCATE(V00054,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00055)) THEN
       DEALLOCATE(V00055,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00056)) THEN
       DEALLOCATE(V00056,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00057)) THEN
       DEALLOCATE(V00057,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(V00058)) THEN
       DEALLOCATE(V00058,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24300 CONTINUE
      CALL GPDERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSDAVC
      END MODULE employv2kp_v4
